home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / util / pack / xpk_Develop.lha / xpk_Develop / Include / Modula2 / XpkSubL.def < prev   
Encoding:
Modula Definition  |  1998-11-09  |  1.0 KB  |  30 lines
  1. (*#-- BEGIN AutoRevision header, please do NOT edit!
  2. *
  3. * $VER: XpkSubL.def 1.0 (27.01.98)
  4. * Auth: T.B. <tonyiommi@geocities.com>
  5. *
  6. * Desc: This is the Libcall-Module Glue example you have to use,
  7. *       if you want to write your own Sublibs.
  8. * Reqs: AMIGA OS 2.0
  9. * Lang: MODULA-2
  10. * Comp: Cyclone © by M. Timmermans
  11. * 
  12. *-- END AutoRevision header --*)
  13.  
  14. DEFINITION MODULE XpkSubL{"xyz.library",1}; (*$ Implementation- *)
  15.  
  16. FROM ExecD IMPORT LibraryPtr;
  17. FROM XpkSubD IMPORT InfoPtr,SubParamsPtr;
  18. IMPORT Reg;
  19.  
  20. CONST XpkSubName="xpksub.library"; XpkSubMinVersion=1;
  21. VAR XpkSubBase:LibraryPtr;
  22.  
  23. PROCEDURE PackerInfo    ():InfoPtr;                             CODE -1EH;
  24. PROCEDURE PackChunk     (pars{Reg.A0}:SubParamsPtr):LONGINT;    CODE -24H;
  25. PROCEDURE PackFree      (pars{Reg.A0}:SubParamsPtr);            CODE -2AH;
  26. PROCEDURE PackReset     (pars{Reg.A0}:SubParamsPtr):LONGINT;    CODE -30H;
  27. PROCEDURE UnpackChunk   (pars{Reg.A0}:SubParamsPtr):LONGINT;    CODE -36H;
  28. PROCEDURE UnpackFree    (pars{Reg.A0}:SubParamsPtr);            CODE -3CH;
  29.  
  30. END XpkSubL.